Remax Data

home *** CD-ROM | disk | FTP | other *** search

/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / array.txt < prev next >

Wrap

Text File | 1994-07-06 | 6.0 KB | 420 lines

M.Count = 1 M.Size = 0 SET EXACT ON DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= 1000 COPY RECORD Count TO ARRAY Search FIELDS Lang1 M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO GOTO TOP Count = 1 DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Lang2 M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO GOTO TOP Count = 1 DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Lang3 M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO =ASORT(Magic) ERASE Language.dbf CREATE TABLE Language.dbf ; (Langauge C(30)) USE Language APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER NOUPDATE PRIVATE M.Records COUNT TO M.Records CLOSE DATABASES USE ROSTER M.Count = 1 M.Size = 0 SET EXACT ON DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Region M.Count = M.Count + 1 String = (Search[1,1]) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF IF M.Count % 2000 = 0 ? Count ENDIF ENDDO =ASORT(Magic) CREATE TABLE Region.dbf ; (Region N(3)) USE Region APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER M.Count = 1 M.Size = 0 DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Office M.Count = M.Count + 1 String = Search[1,1] Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF IF M.Count % 2000 = 0 ? Count ENDIF ENDDO =ASORT(Magic) CREATE TABLE Office.dbf ; (Office N(3)) USE Office APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER M.Count = 1 M.Size = 0 DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Title M.Count = M.Count + 1 String = UPPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO =ASORT(Magic) CREATE TABLE Title.dbf ; (Title N(3)) USE Title APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER M.Count = 1 M.Size = 0 DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Country M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO =ASORT(Magic) CREATE TABLE Country.dbf ; (Countries C(20)) USE Country APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER GOTO TOP M.Count = 1 M.Size = 0 DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Spec1 M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO GOTO TOP M.Count = 1 DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Spec2 M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO =ASORT(Magic) CREATE TABLE Spec.dbf ; (Spec C(5)) USE Spec APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER M.Count = 1 M.Size = 0 DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Zip M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF ENDDO =ASORT(Magic) CREATE TABLE Zip.dbf ; (ZipCode N(12)) USE Zip APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER M.Count = 1 M.Size = 0 DIMENSION Magic(1,1),Search(1,1) DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Offname M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF IF M.Count % 2000 = 0 ? Count ENDIF ENDDO =ASORT(Magic) CREATE TABLE Office.dbf ; (Office_Name C(30)) USE Office APPEND FROM ARRAY Magic CLOSE DATABASES USE ROSTER DIMENSION Magic(1,1),Search(1,1) M.Count = 1 M.Size = 0 ? 'Position' DO WHILE Count <= M.Records COPY RECORD Count TO ARRAY Search FIELDS Posistion M.Count = M.Count + 1 String = PROPER(ALLTRIM(Search[1,1])) Match = ASCAN(Magic, String) IF NOT EMPTY(String) IF Match == 0 M.Size = M.Size + 1 DIMENSION Magic[Size,1] Magic[M.Size,1] = String ENDIF ENDIF IF M.Count % 2000 = 0 ? Count ENDIF ENDDO =ASORT(Magic) CREATE TABLE Position.dbf ; (Pos C(30)) USE Position APPEND FROM ARRAY Magic